Limit style_format to MAX_ALLOCA

* src/editfns.c (styled_format): Subtract initial buffer size
from sa_avail, since it is nontrivial.

diff --git a/src/editfns.c b/src/editfns.c
index f0c4593742d6a48aed4178e066a1608c8cca975b..da99c055b544695696d64329e3ac7fd0050e7ea8 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4179,6 +4179,7 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool message)
   bool maybe_combine_byte;
   bool arg_intervals = false;
   USE_SAFE_ALLOCA;
+  sa_avail -= sizeof initial_buffer;
 
   /* Information recorded for each format spec.  */
   struct info